home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).do / HELIOSELENE.INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  4KB  |  88 lines
  1. 90  REM =========================<CTRL-J><CTRL-J>  HELIOSELENE.INSTRUCTIONS  <CTRL-J><CTRL-J>============================<CTRL-J>
  2. 100  TEXT : HOME : PRINT 
  3. 110  PRINT  TAB( 9);"A PROGRAM IN ASTROLOGY": PRINT 
  4. 120  INVERSE : PRINT "              HELIOSELENE              ": NORMAL : PRINT 
  5. 130  PRINT "THESE INSTRUCTIONS WRITTEN BY C.E.WALKER"
  6. 140  PRINT "ORIGINAL PROGRAM BY O.I.& JEAN SCHIFRINE"
  7. 150  PRINT "     PUBLISHED IN THE FRENCH MAGAZINE,"
  8. 160  PRINT "L'ORDINATEUR INDIVIDUEL NO. 38 JUIN-"
  9. 170  PRINT "JUILLET 82.": PRINT 
  10. 180  PRINT "     THE PROGRAM ASSUMES A PRINTER IN"
  11. 190  PRINT "SLOT NO. 1.  CHANGE PR#1 TO PR#0 IF YOU"
  12. 200  PRINT "WISH TO RUN WITHOUT THE PRINTER."
  13. 210  PRINT "(SEE LINES # 360 & 420)"
  14. 220  PRINT : FLASH : PRINT "WARNING";: NORMAL : PRINT "  PROGRAM USES ALL AVAILABLE"
  15. 230  PRINT "SPACE BELOW HIREZ PAGE 1.  LIST OR SAVE"
  16. 240  PRINT "BEFORE RUNNING. MAKE CHANGES CAREFULLY."
  17. 250  GOSUB 488
  18. 255  INVERSE : PRINT "                GLOSSARY               ": NORMAL : PRINT 
  19. 260  PRINT "FRENCH WORD(S)          ENGLISH WORD(S)"
  20. 270  GOSUB 489
  21. 280  PRINT "APPELEZ-VOUS         YOUR NAME"
  22. 290  PRINT "NAISSANCE            BIRTH"
  23. 300  PRINT "JOUR/MOIS/ANNEE      DAY/MONTY/YEAR"
  24. 310  PRINT "O(UI) OU N(ON)       Y(ES) OR N(O)"
  25. 320  PRINT "QUI..INTERESSE       WHICH..INTERESTED"
  26. 330  PRINT "UN AUTRE?            ANOTHER ONE?"
  27. 340  PRINT "S.V.P.               IF YOU PLEASE"
  28. 350  PRINT "VOUS ETES            YOU ARE (ZODIAC)"
  29. 360  PRINT "RECOMMENCONS         TRY AGAIN"
  30. 370  PRINT "ENCORE               REPEAT"
  31. 380  PRINT "SOLEIL               SUN"
  32. 390  PRINT "LUNE                 MOON"
  33. 400  PRINT "TETE-COEUR-CORPS     HEAD-HEART-BODY"
  34. 410  GOSUB 489: GOSUB 488
  35. 412  INVERSE : PRINT "            DAYS OF THE WEEK           ": NORMAL 
  36. 414  GOSUB 489
  37. 416  PRINT "DIMANCHE             SUNDAY"
  38. 417  PRINT "LUNDI                MONDAY"
  39. 418  PRINT "MARDI                TUESDAY"
  40. 419  PRINT "MERCREDI             WEDNESDAY"
  41. 420  PRINT "JEUDI                THURSDAY"
  42. 421  PRINT "VENDREDI             FRIDAY"
  43. 422  PRINT "SAMEDI               SATURDAY"
  44. 426  GOSUB 489
  45. 428  GOSUB 488
  46. 429  PRINT 
  47. 430  INVERSE : PRINT "           MONTHS OF THE YEAR          ": NORMAL 
  48. 432  GOSUB 489
  49. 435  PRINT "JANVIER              JANUARY"
  50. 436  PRINT "FEVRIER              FEBRUARY"
  51. 437  PRINT "MARS                 MARCH"
  52. 438  PRINT "AVRIL                APRIL"
  53. 439  PRINT "MAI                  MAY"
  54. 440  PRINT "JUIN                 JUNE"
  55. 441  PRINT "JUILLET              JULY"
  56. 442  PRINT "AOUT                 AUGUST"
  57. 443  PRINT "SEPTEMBRE            SEPTEMBER"
  58. 444  PRINT "OCTOBRE              OCTOBER"
  59. 445  PRINT "NOVEMBRE             NOVEMBER"
  60. 446  PRINT "DECEMBRE             DECEMBER"
  61. 449  GOSUB 489
  62. 450  GOSUB 488
  63. 455  INVERSE : PRINT "           SIGNS OF THE ZODIAC         ": NORMAL 
  64. 457  GOSUB 489
  65. 460  PRINT "CAPRICORNE           CAPRICORN, GOAT"
  66. 461  PRINT "VERSEAU              AQUARIUS, WATER"
  67. 462  PRINT "POISSONS             PISCES, FISH"
  68. 463  PRINT "BELIER               ARIES, RAM"
  69. 464  PRINT "TAUREAU              TAURUS, BULL"
  70. 465  PRINT "GEMEAUX              GEMINI, TWINS"
  71. 466  PRINT "CANCER               CANCER, CRAB"
  72. 467  PRINT "LION                 LEO, LION"
  73. 468  PRINT "VIERGE               VIRGO, VIRGIN"
  74. 469  PRINT "BALANCE              LIBRA, SCALES"
  75. 470  PRINT "SCORPION             SCORPIO, SCORPION"
  76. 471  PRINT "SAGITTAIRE           SAGITTARIUS, ARCHER"
  77. 475  GOSUB 489
  78. 477  VTAB (18): HTAB (10): INVERSE : PRINT "HIT SPACE BAR"
  79. 479  GET R$
  80. 480  PRINT 
  81. 481  PRINT  CHR$(4)"RUN HELIOSELENE"
  82. 487  END 
  83. 488  VTAB 24: HTAB 20: INPUT "<CR> TO CONTINUE ";G$: HOME : PRINT : RETURN 
  84. 489  PRINT "================== ! ==================": RETURN 
  85. 490  REM ========================<CTRL-J><CTRL-J>INSTRUCTIONS WRITTEN BY C.E.WALKER ON 26 DEC 82..LINCOLNNEBRASKA ---- FOR APPLE-LINC<CTRL-J><CTRL-J>============================<CTRL-J>
  86. 495  REM ========================<CTRL-J>MAGAZINE PURCHASED IN PARIS BY TOM WALKER, JUNE 1982----<CTRL-J>============================
  87. 498 :<CTRL-J>
  88. 499  REM -48K,APPLESOFT IN RAM